The CICA Windows Explosion!/The CICA Windows Explosion! - Disc 2.iso/programr/adoc2140.zip/ADSETUP.MST

Text File | 1994-07-14 | 19KB | 627 lines

''**************************************************************************
''*                    AutoDoc Setup Script
''**************************************************************************

'$DEFINE DEBUG  ''  Define for script development/debugging

'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'

DECLARE FUNCTION WinExec LIB "kernel.exe" (szCommand$, cmdShow%) AS INTEGER

''
''  Dialog Template IDs
''
CONST IDD_DIALOG1 = 100       '' Welcome screen
CONST IDD_DIALOG2 = 101       '' Default or Custom install?
CONST IDD_DIALOG3 = 102       '' OK to quit?
CONST IDD_DIALOG4 = 103       '' Setup failed!
CONST IDD_DIALOG5 = 104       '' Exit on request
CONST IDD_DIALOG6 = 105       '' Setup complete
CONST IDD_DIALOG7 = 106       '' Custom options dialog
CONST IDD_DIALOG8 = 107       '' invisible interface
CONST IDD_DIALOG9 = 108       '' generic help dialog

CONST NO_HELP = 0

''  Bitmap IDs
''
''  These values correspond to the bitmap resources in the adsetup DLL
''
CONST Logo480 = 1
CONST Logo600 = 2
CONST Logo768 = 3

''
''  This ShowWindow() value wAs pulled from Windows.h
''  and specifies a maximized view of the setup background window
''
CONST SW_MAXIMIZE = 3

GLOBAL DEST$        ''  Default destination directory
GLOBAL OPTCUR$      ''  Option selection from option dialog
GLOBAL CUIDLL$      ''  Custom UI dynalink
GLOBAL NO_HELP_FILE$

Declare Function MakePath (szDir$, szFile$) As String
Declare Function Install(AutoDocPath$, SelectList$) As String
Declare Function AddWordProcessor( WPName$, INIFile$ ) As Integer

''
''  Windows USER.EXE entry points that are not prototyped elsewhere
''
Declare Sub      ShowWindow LIB "User" (hwnd%, flags%)
Declare Function GetWindowLong LIB "User" (hwnd%, index%) As Long
Declare Function SetWindowLong LIB "User" (hwnd%, index%, value&) As Long
Declare Function GetSectionSize(Section$) As Long

''
''  The setup script entry point
''
init:
    cuidll$    = "adsetup.dll"          ''Custom user interface dll
    helpprocs$ = "HelpProcedure"        ''Help dialog procedure
    NO_HELP_FILE$ = ""

    ''
    ''  Get the window style of the background window
    ''  The -16 is the index of the long value that represents the stlye
    ''  (taken from Windows.h)
    ''
    Style&=GetWindowLong(HwndFrame(), -16)

    ''
    ''  Clear the caption style bits (as taken from Windows.h)
    ''
    Style&=Style&-&h00C00000

    ''
    ''  Set the window style back minus undesired elements
    ''
    Style&=SetWindowLong(HwndFrame(), -16, Style&)

    ''
    ''  Maximize the background window
    ''
    ShowWindow HwndFrame(), SW_MAXIMIZE

    ''
    ''  Get the height value of the screen
    ''
    Height% = GetScreenHeight()

    ''
    ''  If there are no other matches, use the 640x480 bitmap background
    ''
    Logo% = Logo480

    ''
    ''  Check for and set a 800x600 background
    ''
''    If Height%=600 Then
''        Logo%=Logo600
''    End If

    ''
    ''  Check for and set a 1024x768 background
    ''
''    If Height%=768 Then
''        Logo%=Logo768
''    End If

    ''
    ''  Set the appropriate bitmap from adsetup.dll
    ''
    SetBitmap cuidll$, Logo

    ''
    ''  Specify the Window Title
    ''
    SetTitle "AutoDocumentation System Setup"

    ''
    ''  If the source inf path has not been established, create one
    ''
    szInf$ = GetSymbolValue("STF_SRCINFPATH")
    IF szInf$ = "" THEN
        szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
    END IF

    ''
    ''  Load the inf settings
    ''
    ReadInfFile szInf$

    ''
    ''  Make sure that the Windows directory is valid
    ''
    i% = SetSizeCheckMode(scmOnIgnore)
    WinDrive$ = Mid$(GetWindowsDir, 1, 1)
    IF IsDriveValid(WinDrive$) = 0 THEN
        i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "AutoDocumentation System Setup", MB_TASKMODAL+MB_ICONHAND+MB_OK)
        Goto QUIT
    END IF

    ''
    ''  The dirty work starts here with the Welcome dialog
    ''
Welcome:
    ''
    ''  Display the Welcome dialog
    ''
    Result$ = UIStartDlg(CUIDLL$, IDD_DIALOG1, "SetupInformationDialog", IDD_DIALOG9, HELPPROC$)
    UIPop 1

    ''
    ''  Process the dialog buttons
    ''
    If Result$ <> "CONTINUE" Then
        Gosub AskQuit
        Goto  Welcome
    End If

InstallTypeLoop:
    ''
    ''  Display the setup type options dialog
    ''
    Result$ = UIStartDlg(CUIDLL$, IDD_DIALOG2, "SetupTypeDialog", IDD_DIALOG9, HELPPROC$)
    UIPop 1

    ''
    ''  Process the dialog buttons
    ''
    if Result$ = "EXIT" then
        Gosub AskQuit
        Goto InstallTypeLoop
    end if

    ''
    ''  Get which radio button was selected
    ''
    SelectedInstallType$ = GetSymbolValue("ButtonChecked")

GetPaths:
    ''
    ''  Get the setup source directory
    ''
    SourceDirectory$ = GetSymbolValue("STF_SRCDIR")

    ''
    ''  Build the size list for the base product
    ''
    AddListItem "BaseList", "BaseProduct"
    AddListItem "BaseList", "Keywords"
    AddListItem "BaseList", "Windows$System"
    SetSymbolValue "BaseSize", STR$(GetSectionSize("BaseList"))
    RemoveSymbol "BaseList"

    ''
    ''  Build the size list for the help files
    ''
    AddListItem "HelpList", "Help"
    SetSymbolValue "HelpSize", STR$(GetSectionSize("HelpList"))
    RemoveSymbol "HelpList"

    ''
    ''  Build the size list for the sample projects
    ''
    AddListItem "SamplesList", "Samples"
    SetSymbolValue "SamplesSize", STR$(GetSectionSize("SamplesList"))
    RemoveSymbol "SamplesList"

    ''
    ''  Build the size list for the Word 2.0 files
    ''
    AddListItem "Word20List", "Word20"
    SetSymbolValue "Word20Size", STR$(GetSectionSize("Word20List"))
    RemoveSymbol "Word20List"

    ''
    ''  Build the size list for the Word 6.0 files
    ''
    AddListItem "Word60List", "Word60"
    SetSymbolValue "Word60Size", STR$(GetSectionSize("Word60List"))
    RemoveSymbol "Word60List"

    ''
    ''  Set the product path symbol for the settings dialog
    ''
    SetSymbolValue "Edit1", "C:\AUTODOC"
    SetSymbolValue "Edit1Select",  "ALL"

    ''
    ''  Specify the default ProgMan group name and target filename
    ''
    SetSymbolValue "DefaultGroup", "AutoDocumenation System"
    SetSymbolValue "TargetFile",   "AUTODOCW.EXE"

    ''
    '' Based upon the installation type, either prompt the user
    '' or just go ahead and do stuff
    ''
    if SelectedInstallType$="1" Then        '' Full installation
        AddListItem    "SelectList",   "ON"
        AddListItem    "SelectList",   "ON"
        AddListItem    "SelectList",   "ON"
        AddListItem    "SelectList",   "ON"
        AddListItem    "SelectList",   "ON"
        AddListItem    "SelectList",   "ON"
        SetSymbolValue "DefaultGroupResult", "AutoDocumentation System"
        Result$ = Install("C:\AUTODOC", "SelectList")
        Goto QUIT
    elseif SelectedInstallType$="3" Then    '' Minimal installation
        AddListItem    "SelectList",   "ON"         '' base product
        AddListItem    "SelectList",   "OFF"        '' help files
        AddListItem    "SelectList",   "OFF"        '' sample projects
        AddListItem    "SelectList",   "ON"         '' Word 2.0 support
        AddListItem    "SelectList",   "ON"         '' Word 6.0 support
        AddListItem    "SelectList",   "ON"         '' create icon
        SetSymbolValue "DefaultGroupResult", "AutoDocumentation System"
        Result$ = Install("C:\AUTODOC", "SelectList")
        Goto QUIT
    endif

    ''
    '' We'll get here if they're doing a custom installation
    ''
    AddListItem    "SelectList",   "ON"
    AddListItem    "SelectList",   "ON"
    AddListItem    "SelectList",   "ON"
    AddListItem    "SelectList",   "ON"
    AddListItem    "SelectList",   "ON"
    AddListItem    "SelectList",   "ON"

PathLoop:
    ''
    ''  Display the setting dialog
    ''
    Result$ = UIStartDlg(CUIDLL$, IDD_DIALOG7, "SetupOptionsDialog", IDD_DIALOG9, HELPPROC$)
    UIPop 1

    ''
    ''  Where should we install the software?
    ''
    AutoDocPath$ = GetSymbolValue("Edit1Result")
    if Mid$(AutoDocPath$, Len(AutoDocPath$), 1)="\" then
        AutoDocPath$ = Mid$(AutoDocPath$, 1, Len(AutoDocPath$)-1)
    elseif Mid$(AutoDocPath$, Len(AutoDocPath$),1)="/" then
        AutoDocPath$ = Mid$(AutoDocPath$, 1, Len(AutoDocPath$)-1)
    end if

    ''
    ''  Process the dialog buttons
    ''
    If Result$ = "CONTINUE" Then
        If IsDirWritable(AutoDocPath$) = 0 Then
            Gosub BadPath
            Goto PathLoop
        End If
    ELSE
        Gosub AskQuit
        Goto PathLoop
    END IF

    ''
    ''  Install the desired files
    ''
    Result$ = Install(AutoDocPath$, "SelectList")

QUIT:
    ''
    '' Based upon the current value of ERROR, determine which
    '' termination dialog is to be displayed
    ''
    ON ERROR Goto ErrQuit
    IF ERR = 0 THEN
        dlg% = IDD_DIALOG6          '' Setup is complete
    ELSEIF ERR = STFQUIT THEN
        dlg% = IDD_DIALOG5          '' user clicked Exit button
    ELSE
        dlg% = IDD_DIALOG4          '' failure during setup!
    END IF

QuitL1:
    ''
    ''  Display the Quit Dialog
    ''
    sz$ = UIStartDlg(CUIDLL$, dlg%, "SetupInformationNoExitDialog", NO_HELP, NO_HELP_FILE$)
''    IF sz$ = "REACTIVATE" THEN
''        Goto QuitL1
''    END IF
    UIPopAll
    END             '' end of script

ErrQuit:
    ''
    ''  Whoa, files were bad!
    ''
    i% = DoMsgBox("Setup sources were corrupted.  Contact vendor for new diskettes.", "AutoDocumentation System Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
    UIPopAll
    END         '' end of script



BADPATH:
    ''
    ''  One of the paths were not valid
    ''
    sz$ = UIStartDlg(CUIDLL$, IDD_DIALOG4, "SetupInformationNoExitDialog", NO_HELP, NO_HELP_FILE$)
''    IF sz$ = "REACTIVATE" THEN
''        Goto BADPATH
''    END IF
    UIPop 1
    RETURN



AskQuit:
    ''
    ''  Display the Quit Prompt Dialog
    ''
    sz$ = UIStartDlg(CUIDLL$, IDD_DIALOG3, "SetupQuitDialog", NO_HELP, NO_HELP_FILE$)
    UIPop 1

    IF sz$ = "EXIT" THEN
        UIPopAll
        ERROR STFQUIT
''    ELSEIF sz$ = "REACTIVATE" THEN
''        Goto AskQuit
    END IF
    RETURN



'**********************************************************************
'** Purpose:
'**     Builds the copy list and performs all installation operations.
'** Arguments:
'**     none.
'** Returns:
'**     none.
'**********************************************************************
Function Install(AutoDocPath$, SelectList$) Static As String
    ''
    ''  Build the source and destination paths
    ''
    SourceDirectory$ = GetSymbolValue("STF_SRCDIR")
    WindowsSystem$   = GetWindowsDir()+"System"

    ''
    ''  Create the INI file
    ''
    INIFile$ = AutoDocPath$ + "\AUTODOCW.INI"

    ''
    ''  Create the destination root and the SCRIPT subdir if necessary
    ''
    CreateDir AutoDocPath$, cmoNone

    ''
    ''  Check and add the base product to the copy list if selected
    ''
    If GetListItem(SelectList, 1)="ON" Then
        ScriptPath$ = AutoDocPath$ + "\SCRIPTS"
        CreateDir ScriptPath$, cmoNone
        CreateIniKeyValue INIFile$, "Directories", "SCRIPT-PATH", ScriptPath$, cmoOverwrite

        ProjDirPath$ = AutoDocPath$ + "\PROJECTS"
        CreateDir ProjDirPath$, cmoNone
        CreateIniKeyValue INIFile$, "Directories", "PROJECT-PATH", ProjDirPath$, cmoOverwrite

        KywdDirPath$ = AutoDocPath$ + "\KEYWORDS"
        CreateDir KywdDirPath$, cmoNone
        CreateIniKeyValue INIFile$, "Directories", "KEYWORD-PATH", KywdDirPath$, cmoOverwrite

        CreateIniKeyValue INIFile$, "Directories", "LANGUAGE-PATH", AutoDocPath$, cmoOverwrite

        AddSectionFilesToCopyList "BaseProduct", SourceDirectory$, AutoDocPath$
        AddSectionFilesToCopyList "Keywords", SourceDirectory$, KywdDirPath$
        AddSectionFilesToCopyList "Windows$System", SourceDirectory$, WindowsSystem$
    EndIf

    ''
    ''  Check and add the Help files to the copy list if selected
    ''
    If GetListItem(SelectList, 2)="ON" Then
        AddSectionFilesToCopyList "Help", SourceDirectory$, AutoDocPath$
    End If

    ''
    ''  Check and add the Samples to the copy list
    ''
    If GetListItem(SelectList, 3)="ON" Then
        SamplesPath$ = AutoDocPath$ + "\SAMPLES"
        CreateDir SamplesPath$, cmoNone
        AddSectionFilesToCopyList "Samples", SourceDirectory$, SamplesPath$
    EndIf

    ''
    ''  Check and add Word20 to the copy list
    ''
    If GetListItem(SelectList, 4)="ON" Then
        Word20Path$ = AutoDocPath$ + "\WORD20"
        CreateDir Word20Path$, cmoNone
        AddSectionFilesToCopyList "Word20", SourceDirectory$, Word20Path$
    End If

    ''
    ''  Check and add Word60 to the copy list
    ''
    If GetListItem(SelectList, 5)="ON" Then
        Word60Path$ = AutoDocPath$ + "\WORD60"
        CreateDir Word60Path$, cmoNone
        AddSectionFilesToCopyList "Word60", SourceDirectory$, Word60Path$
    End If

    ''
    ''  Copy the files...
    ''
    CopyFilesInCopyList

    ''
    ''  Reset the copy list
    ''
    ClearCopyList
    Cursor%=ShowWaitCursor()

    ''
    ''  Was Word20 installed?
    ''
    If GetListItem(SelectList, 4)="ON" Then
        WP$ = "Microsoft Word 2.0"
        CreateIniKeyValue INIFile$, WP$, "DIR", "WORD20", cmoOverwrite
        CreateIniKeyValue INIFile$, WP$, "DLL", "WORD20.DLL", cmoOverwrite
        Word20$ = GetIniKeyString( INIFile$, WP$, "EXE" )
        If Word20$ = "" Then
            Word20$ = "WINWORD.EXE"
        EndIf
        CreateIniKeyValue INIFile$, WP$, "EXE", Word20$, cmoOverwrite
        Word20$ = GetIniKeyString( INIFile$, WP$, "MACRO-FILE" )
        If Word20$ = "" Then
            Word20$ = "API8X11.DOT"
        EndIf
        CreateIniKeyValue INIFile$, WP$, "MACRO-FILE", Word20$, cmoOverwrite
        i% = AddWordProcessor( WP$, INIFile$ )
    end if

    ''
    ''  Was Word60 installed?
    ''
    If GetListItem(SelectList, 5)="ON" Then
        WP$ = "Microsoft Word 6.0"
        CreateIniKeyValue INIFile$, WP$, "DIR", "WORD60", cmoOverwrite
        CreateIniKeyValue INIFile$, WP$, "DLL", "WORD60.DLL", cmoOverwrite
        Word60$ = GetIniKeyString( INIFile$, WP$, "EXE" )
        If Word60$ = "" Then
            Word60$ = "WINWORD.EXE"
        EndIf
        CreateIniKeyValue INIFile$, WP$, "EXE", Word60$, cmoOverwrite
        Word60$ = GetIniKeyString( INIFile$, WP$, "MACRO-FILE" )
        If Word60$ = "" Then
            Word60$ = "API8X11.DOT"
        EndIf
        CreateIniKeyValue INIFile$, WP$, "MACRO-FILE", Word60$, cmoOverwrite
        i% = AddWordProcessor( WP$, INIFile$ )
    end if

    RestoreCursor Cursor%

    ''
    ''  If the user wants to create a program manager entry, do so...
    ''
    If GetListItem(SelectList, 6)="ON" Then
        ''
        ''  Find out what group the user chose
        ''
        Group$=GetSymbolValue("DefaultGroupResult")

        ''
        ''  Create the Program Manager group
        ''
        CreateProgmanGroup Group$, "", cmoNone

        ''
        ''  Create the application's item
        ''
        CreateProgmanItem Group$, "AutoDocumentation System", AutoDocPath$+"\AUTODOCW.EXE", "", cmoOverwrite

        ''
        ''  Setup an item for the read-me file
        ''
        notepadCmd$ = "NOTEPAD " + AutoDocPath$ + "\README.TXT"
        CreateProgmanItem Group$, "README.TXT", notepadCmd$, "", cmoOverwrite

        ''
        ''  Setup an item for the history file
        ''
        CreateProgmanItem Group$, "HISTORY", "NOTEPAD " + AutoDocPath$ + "\HISTORY.TXT", "", cmoOverwrite

        ''
        ''  Show the read-me file
        ''
        result% = WinExec( notepadCmd$, 1 )
    End If

    ''
    ''  Get the restart count
    ''
    i%=RestartListEmpty()

    ''
    ''  If necessary, copy the restart items
    ''
    If i%=0 Then
        i% = DoMsgBox("Setup will now install system components that could not be copied while Windows is running", "AutoDocumentation System Setup", MB_TASKMODAL+MB_ICONHAND+MB_OK)
        i% = ExitExecRestart()
    End If
End Function



'**
'** Purpose:
'**     Appends a file name to the end of a directory path,
'**     inserting a backslAsh character As needed.
'** Arguments:
'**     szDir$  - full directory path (with optional ending "\")
'**     szFile$ - filename to append to directory
'** Returns:
'**     Resulting fully qualified path name.
'*************************************************************************
Function MakePath (szDir$, szFile$) STATIC As String
    IF szDir$ = "" THEN
        MakePath = szFile$
    ELSEIF szFile$ = "" THEN
        MakePath = szDir$
    ELSEIF Mid$(szDir$, LEN(szDir$), 1) = "\" THEN
        MakePath = szDir$ + szFile$
    ELSE
        MakePath = szDir$ + "\" + szFile$
    END IF
END Function

''
''  Accumulate file sizes from a list
''
Function GetSectionSize(Section$) Static As Long
    Size& = 0

    For SectionIndex% = 1 to GetListLength(Section$)
        Current$ = GetListItem(Section$, SectionIndex%)
        MakeListFromSectionKeys "SizeList", Current$
        listLength% = GetListLength("SizeList")

        For Index% = 1 to listLength%
            Result$ = GetListItem("SizeList", Index%)

            Size& = Size& + GetSectionKeySize(Current$, Result$)
        Next Index%

        RemoveSymbol "SizeList"
    Next SectionIndex%

    GetSectionSize = Size&
End Function

''
''
''
Function AddWordProcessor( WPName$, INIFile$ ) Static As Integer
    Index% = 0

INISearchLoop:
    key$ = "WP"+Mid$(STR$(Index%),2)
    Value$ = GetIniKeyString( INIFile$, "Print", key$)

    if Value$ <> WPName$ and Value$ <> "" then
        Index% = Index% + 1
        goto INISearchLoop
    end if

    ''
    '' Either we found the entry or Index% points to the 1st open entry
    ''
    CreateIniKeyValue INIFile$, "Print", key$, WPName$, cmoOverwrite
    AddWordProcessor = Index%
End Function